home *** CD-ROM | disk | FTP | other *** search
- (******************************************************************************
- * project3 *
- ******************************************************************************)
- unit project3;
-
- (*******************************************************************************
- * this unit has 2 instances : the first one is used with the windows *
- * graphic user interface, and the other does not, *
- * *
- * +-------------------------------------------------+ *
- * | this unit is NOT interfaced to the window GUI, | *
- * | for use on a bare screen ONLY - for runTime! | *
- * | **** | *
- * +-------------------------------------------------+ *
- * *
- *this unit handles the 3d -> 2d projections, we use 2 different methods *
- * of projections : *
- * *
- * A : axonometric projections, no perspective due to *
- * distance is performed, the general way *
- * we can look at the coordinate system is as *
- * follows : *
- * *
- * | z axis *
- * | *
- * / \ *
- * x axis / \ y axis *
- * *
- * B : perspective projections : the normal eye perspective *
- * projection is performed, we can look at the 3d *
- * universe we are refering to as a cube of *
- * 1000 x 1000 x 1000 integer locations, with *
- * the x axis, and y axis parallel to the screen *
- * x, y axis respectivly, and the z axis going into *
- * the screen. *
- * *
- * we will look at the coordinate system as follows : *
- * *
- * │ Y axis *
- * │ *
- * Z axis x------ X axis *
- * *
- * *
- *******************************************************************************)
-
- interface
-
- uses
- {$ifndef windows}
- {$ifndef os2}
- graph,
- {$endif}
- {$endif}
- hdr3d
- ;
-
- const
- perspective : boolean = false;
- {true = perspective, else = axonometric}
- {$ifndef windows}
- {$ifndef os2}
- var
- MaxX, MaxY : word; { In pixels for graphics screen }
- MaxColor : word;
- GraphDriver : integer;
- GraphMode : integer;
- {$endif}
- {$endif}
-
- procedure calcPoint(p3d : point3d; var psc : screenPoints);
- procedure setPerspective;
- procedure resetPerspective;
- procedure togglePerspective;
-
- implementation
- end.
-